home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_1 / fd200.zip / FD_IMAGE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-02-27  |  848 b   |  41 lines
  1. procedure color_image;
  2. var i : integer;
  3.     attr : integer;
  4.     ver : string[4];
  5. begin
  6.   attr := norm_b SHL 4 + norm_f;
  7.   for i := 0 to 1999 do
  8.   begin
  9.     image1[i SHL 1 + 1] := attr;
  10.     image2[i SHL 1 + 1] := attr;
  11.     save_image[i SHL 1 + 1] := attr;
  12.   end;
  13.   ver := version;
  14.   for i := 1 to length(ver) do
  15.     image1[3122 + (i SHL 1)] := ord(ver[i]);
  16. end;
  17.  
  18. procedure read_image;
  19. var imagefile : file;
  20. begin
  21.   assign(imagefile,'FIELDDAY.IMG');
  22.   {$I-}
  23.   reset(imagefile);
  24.   if (IOresult = 0)
  25.   then
  26.     begin
  27.       blockread(imagefile, image1, 32);
  28.       blockread(imagefile, image2, 32);
  29.       close(imagefile);
  30.       color_image;
  31.     end
  32.   else
  33.     begin
  34.       writeln('File FIELDDAY.IMG must be on default drive/directory.');
  35.       delay(5000);
  36.       restore_entry_screen;
  37.       halt;
  38.     end;
  39. end;
  40.  
  41.